Apple Reference & Presen…tion Library 2 (Reseller)/Apple R&P Lib Reseller v2.0.iso/3-Demos/Third Party Demos/Networking/MacMainFrame/card_16400.txt

Text File | 1989-07-14 | 9.1 KB | 376 lines

-- card: 16400 from stack: in
-- bmap block id: 23524
-- flags: 0000
-- background id: 2776
-- name:


-- part 1 (button)
-- low flags: 00
-- high flags: 0002
-- rect: left=469 top=309 right=337 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 2006
-- rect: left=241 top=251 right=269 bottom=258
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  set hilite of card button id 11 to false
  set hilite of card button id 3 to false
  hide card field id 5
  hide card field id 7
  hide card field id 9
  if hilite of card button id 2 is true then
    show card field id 8
  else
    hide card field id 8
  end if
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 2006
-- rect: left=310 top=251 right=269 bottom=327
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  set hilite of card button id 11 to false
  set hilite of card button id 2 to false
  hide card field id 5
  hide card field id 7
  hide card field id 8
  if hilite of card button id 3 is true then
    show card field id 9
  else
    hide card field id 9
  end if
end mouseUp




-- part 4 (button)
-- low flags: 00
-- high flags: 2006
-- rect: left=185 top=251 right=269 bottom=202
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  set hilite of card button id 2 to false
  set hilite of card button id 3 to false
end mouseUp



-- part 5 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=121 top=153 right=251 bottom=409
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  hide card field id 5
end mouseUp



-- part 6 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=481 top=30 right=52 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 26635 / 26635
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  show card field id 5
end mouseUp



-- part 7 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=5 top=16 right=254 bottom=338
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  hide card field id 7
  set hilite of card button id 11 to false
end mouseUp



-- part 8 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=0 top=39 right=240 bottom=340
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  hide card field id 8
  set hilite of card button id 2 to false
end mouseUp




-- part 9 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=6 top=51 right=207 bottom=331
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  hide card field id 9
  set hilite of card button id 3 to false
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 2006
-- rect: left=185 top=250 right=270 bottom=202
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  set hilite of card button id 2 to false
  set hilite of card button id 3 to false
  hide card field id 5
  hide card field id 8
  hide card field id 9
  if hilite of card button id 11 is true then
    show card field id 7
  else
    hide card field id 7
  end if
end mouseUp




-- part 12 (button)
-- low flags: 00
-- high flags: 0002
-- rect: left=7 top=308 right=336 bottom=45
-- title width / last selected line: 0
-- icon id / first selected line: 30557 / 30557
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: First
----- HyperTalk script -----
on mouseUp
  visual effect scroll right
  hide card field id 7
  hide card field id 8
  hide card field id 9
  hide card field id 5
  set hilite of card button id 11 to false
  set hilite of card button id 2 to false
  set hilite of card button id 3 to false
  push card
  go to card id 9514
  show menuBar
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 0002
-- rect: left=469 top=309 right=337 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  hide card field id 7
  hide card field id 8
  hide card field id 9
  hide card field id 5
  set hilite of card button id 11 to false
  set hilite of card button id 2 to false
  set hilite of card button id 3 to false
  pop card
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=471 top=34 right=56 bottom=497
-- title width / last selected line: 0
-- icon id / first selected line: 26635 / 26635
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  hide card field id 7
  hide card field id 8
  hide card field id 9
  set hilite of card button id 2 to false
  set hilite of card button id 3 to false
  set hilite of card button id 11 to false
  show card field id 5
end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=337 top=179 right=200 bottom=414
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Open
----- HyperTalk script -----
on mouseUp
  set hilite of card button id 11 to false
  set hilite of card button id 2 to false
  set hilite of card button id 3 to false
  hide card field id 5
  hide card field id 7
  hide card field id 8
  hide card field id 9
  go to card id 23916
end mouseUp




-- part 21 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=415 top=180 right=202 bottom=449
-- title width / last selected line: 0
-- icon id / first selected line: 9120 / 9120
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button


-- part contents for card part 5
----- text -----
To upload a file simply select the file then Open.

Select one of the file types below to learn more about each type of file transfer.

-- part contents for card part 7
----- text -----
Text file transfer.   MacMainFrame provides the ability to upload a Macintosh file to the IBM host in Text format.  Once uploaded, files can be manipulated by host programs.  They can also be retrieved by Macintosh and IBM PC users connected to the same host.

A Text File Filtering capability consists of Variable Tab Expansion on uploads and Special Character  Insertion on downloads.  Variable Tab Expansion allows formatting to host standards of appearance.  Special Character  Insertion allows download of IBM mainframe documents for use with Macintosh applications such as Excel.

-- part contents for card part 8
----- text -----
Binary file transfer.    MacMainFrame's Binary Transfer feature supports transfer of Macintosh files in a binary format to and from IBM mainframes, enhancing Macintosh-to-PC communications.  When used with IBM PC host file transfer products, such as Avatar's PA100G or IBM's PC-3270 product, MacMainFrame allows files such as Lotus 1-2-3- WKS, IBM Document Content Architecture (DCA), and Microsoft. SYLK to be shared by both IBM PC and Macintosh users.  This allows  Lotus 1-2-3 and Excel users to share files with mainframe users.




-- part contents for card part 9
----- text -----
Document file transfer.  With this feature, users can employ the host as a storage resource, as well as a central mailbox  to exchange information such as Excel worksheets.  It does this by not only enabling the user to store an exact representation of a Macintosh file on the host, but also by uploading a Macintosh file to the host, which can later by retrieved by another Macintosh user.